برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 4:44 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

برای پنهان سازی آیکون های دسکتاپ

شما باید ۲ API زیر را باز کنید...

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد از باز کرد API بالا ۲ دکمه بر روی فرم بذارید...یکی برای پنهان سازی و یکی برای

نمایش مجدد...

برای پنهان سازی دستور زیر را بنویسید...

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow hWnd, 0

و برای نمایش مجدد کد زیر را وارد کنید.....

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
       ShowWindow hWnd, 5

تا یادم نرفته توی جنرال این رو هم بنویسین...

Option Explicit

...ممنون از شما...

....نظر هم بدین....

 

 

 

 

 

 

 

 

صفحه قبل 1 صفحه بعد
موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 47
بازدید دیروز : 2
بازدید هفته : 47
بازدید ماه : 159
بازدید کل : 222912
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1